home *** CD-ROM | disk | FTP | other *** search
/ MacHack 2000 / MacHack 2000.toast / pc / The Hacks / Genie / Projects / A-line / Scripts / UpdateAlias < prev    next >
Encoding:
Text File  |  2000-06-24  |  759 b   |  36 lines
  1. # UpdateAlias
  2. #
  3. # Updates an alias.
  4.  
  5. Set TAG UpdateAlias
  6.  
  7. Set ORIG "{1}"
  8. Set LOC "{2}"
  9. Set NAME "{3}"
  10.  
  11. If "`Exists -n "{LOC}{NAME}"`"
  12.     If "`Files -fr -i -q "{LOC}{NAME}"`" == "{ORIG}"
  13.         Echo "{TAG}: Alias '{LOC}{NAME}' is up-to-date."
  14.     Else If "`Files -fr -i -q "{LOC}{NAME}"`" != "{LOC}{NAME}"
  15.         Echo "{TAG}: Updating alias '{LOC}{NAME}' to point to '{ORIG}'."
  16.         Delete -ay "{LOC}{NAME}"
  17.     Else
  18.         Echo "{TAG}: You have something named '{NAME}' in '{LOC}'."
  19.         Echo "{TAG}: Please put it somewhere else."
  20.         Exit 1
  21.     End
  22. Else
  23.     Echo "{TAG}: Making new alias '{LOC}{NAME}' to '{ORIG}'."
  24. End
  25.  
  26. If !"`Exists -n "{LOC}{NAME}"`"
  27.     MakeAlias.pl "{ORIG}" "{LOC}{NAME}"
  28.     If {Status}
  29.         Exit 1
  30.     Else
  31.         If "`Files -fr -i -q "{LOC}{NAME}"`" != "{ORIG}"
  32.             Exit 1
  33.         End
  34.     End
  35. End
  36.